home *** CD-ROM | disk | FTP | other *** search
/ Mac Power 1997 October / MACPOWER-1997-10.ISO.7z / MACPOWER-1997-10.ISO / AMUG / PROGRAMMING / Mac F2C 1.3.5.sit / Mac F2C 1.3.5 / Mac F2C Libraries / libI77 Sources / fmt.h < prev    next >
C/C++ Source or Header  |  1995-01-28  |  2KB  |  83 lines
  1. struct syl
  2. {    int op,p1,p2,p3;
  3. };
  4. #define RET1 1
  5. #define REVERT 2
  6. #define GOTO 3
  7. #define X 4
  8. #define SLASH 5
  9. #define STACK 6
  10. #define I 7
  11. #define ED 8
  12. #define NED 9
  13. #define IM 10
  14. #define APOS 11
  15. #define H 12
  16. #define TL 13
  17. #define TR 14
  18. #define T 15
  19. #define COLON 16
  20. #define S 17
  21. #define SP 18
  22. #define SS 19
  23. #define P 20
  24. #define BN 21
  25. #define BZ 22
  26. #define F 23
  27. #define E 24
  28. #define EE 25
  29. #define D 26
  30. #define G 27
  31. #define GE 28
  32. #define L 29
  33. #define A 30
  34. #define AW 31
  35. #define O 32
  36. #define NONL 33
  37. #define OM 34
  38. #define Z 35
  39. #define ZM 36
  40. extern struct syl f__syl[];
  41. extern int f__pc,f__parenlvl,f__revloc;
  42. typedef union
  43. {    real pf;
  44.     doublereal pd;
  45. } ufloat;
  46. typedef union
  47. {    short is;
  48.     char ic;
  49.     integer il;
  50. #ifdef Allow_TYQUAD
  51.     longint ili;
  52. #endif
  53. } Uint;
  54. #ifdef KR_headers
  55. extern int (*f__doed)(),(*f__doned)();
  56. extern int (*f__dorevert)();
  57. extern int rd_ed(),rd_ned();
  58. extern int w_ed(),w_ned();
  59. #else
  60. #ifdef __cplusplus
  61. extern "C" {
  62. #endif
  63. extern int (*f__doed)(struct syl*, char*, ftnlen),(*f__doned)(struct syl*);
  64. extern int (*f__dorevert)(void);
  65. extern void fmt_bg(void);
  66. extern int pars_f(char*);
  67. extern int rd_ed(struct syl*, char*, ftnlen),rd_ned(struct syl*);
  68. extern int w_ed(struct syl*, char*, ftnlen),w_ned(struct syl*);
  69. extern int wrt_E(ufloat*, int, int, int, ftnlen);
  70. extern int wrt_F(ufloat*, int, int, ftnlen);
  71. extern int wrt_L(Uint*, int, ftnlen);
  72. #ifdef __cplusplus
  73.     }
  74. #endif
  75. #endif
  76. extern flag f__cblank,f__cplus,f__workdone, f__nonl;
  77. extern char *f__fmtbuf;
  78. extern int f__scale;
  79. #define GET(x) if((x=(*f__getn)())<0) return(x)
  80. #define VAL(x) (x!='¥n'?x:' ')
  81. #define PUT(x) (*f__putn)(x)
  82. extern int f__cursor;
  83.